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MODULE SMALOC ( 

LANGUAGE COL 15534) « 
IDENT = 'V04-000' 

00 d= 

B58 

00 

00 

00 

00 :® 


* 
: ® 
'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
'® ALL RIGHTS RESERVED. * 
; ® 
:® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
'* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
!® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
!t TRANSFERRED. * 
® 
® 
® 
* 
* 
® 
* 
® 
® 
* 


!® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE W 
't AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGI 
!® CORPORATION. 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ITHOUT NOTICE 
TAL EQUIPMENT 
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' 
: FACILITY: F11ACP Structure Level 1 

i ABSTRACT: 

This module contains the routines that manipulate the volume 
storage bitmap. These include the routines to allocate a contiguous 
area, deallocate an area, and the basic bitmap scanner. 


i ENVIRONMENT: 
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' 
$028 i STARLET operating system, including privileged system services 
Bote } and internal exec routines. 
4 04 inn 
: S049 : 
48 004 } 
$) tts : AUTHOR: Andrew C. Goldstein, CREATION DATE: 21-Feb-1977 18:42 
i 008 ; MODIFIED BY: 
33 088 i v03-001 ACG45949 Andrew C. Goldstein, 8-Jun-1982 16:15 
ee Ope } Prevent volume free space from going negative 
56 2$ v02-003 ACG0195 Andrew C. Goldstein, 33-Mar-1981 22:54 


Fix 4096 block boundary problem by checking zero in BITSCAN 
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RCIJSMALOC .B32; ? 9 45 


3 1! 

: 38 33 1! v02-002 aceo167 Andrew C. Goldstein 7-May-1980 18:52 
; 60 ; Previous revision history moved to F11A.REV 
ma a 

; 64 64 1 LIBRARY Ru eet LORARY *h 18,152"; 

3 65 5 1 REQUIRE ‘SRCS$:FCPDEF.B32'; 

3 28 0 1 

; § + 1 

: 68 ; 1! 

$ ; 0 3 ! : Modes of operation of the bit scanner. 

; 71 85 1 

ee try 1 LITERAL 

Fm - 387 1 FIND_SET = 0, ' find first one 
s £6 0388 1 FIND CLEAR . 7, ! find first zero 
3; 0389 1 SET BITS - ¢: ! set n bits 

3 7 0390 1 CLEAR_BITS @ 33 ' clear n bits 

Se 0391 1 

ci 0398 1 

: 79 0393 1 FORWARD ROUTINE 

; 80 0394 1 ALLOC BLOCKS : NOVALUE, 

; BI Ogee 1 RETURN BLOCKS : NOVALUE, 

3 82 0396 1 a ARN, 

; 85 0397 1 SMVBN : NOVALUE, 

: «B4 0398 7 SPURTE FREE : NOVALUE; 


ee — . . 


M15 | 
SMAL 16-Sep-1984 01:18:07 VAX-11 Bliss-32 V4.0-742 Page 3. 
v04 19-808- 1382 93:38:95 DISKSVMSMASTER:CF11A.SRCISMALOC.832;1 ’ (2), 
H a6 8738 ! GLOBAL ROUTINE ALLOC_BLOCKS (FIB, BLOCKS_NEEDED, START_LBN, BLOCKS_ALLOC) : NOVALUE = | 
: es 0401 1 {44 | 
3 9 106 1! 
3 Ps Be8? : FUNCTIONAL DESCRIPTION: 
; 4 bc08 1! This routine allocates a single contiguous area of disk. 
Tee 0406 1! Mode of allocation is determined by the allocation control 
; 694 0407 1! in the FIB. 
Ig... 0408 1! 
; 6 09 1 ! CALLING SEQUENCE: 
; 44 219 : ALLOC_BLOCKS (ARG1, ARG2, ARG3, ARG4) 
H 99 pals 1 ! INPUT PARAMETERS: 
; 100 041 1! ARG1: address of FIB for this operation 
: 101 0414 1! ARG2: number of blocks to allocate 
; 1% 0415 1! 
: 10 0416 1 ! IMPLICIT INPUTS: 
5 Ie od F4 : CURRENT_VCB: ADDRESS OF VCB IN PROCESS 
; 106 0419 1 ! OUTPUT PARAMETERS: 
s 107 0420 1! ARG3: address of longword to store starting LBN 
: 138 Bes) } ARG4: address of longword to store block count 
; 6110 04 : 1 ! IMPLICIT OUTPUTS: | 
s 1 0424 1! NONE 
: 1g 0495 1 | | 
; 1 0426 1 ! ROUTINE VALUE: 
s 196 0427 1! NONE 
3s 195 0428 1! 
s 16 0429 1 ! SIDE EFFECTS: ; 
» Tir 0430 1! storage map and VCB modified 
; «6118 0431 1! 
3; 6119 0432 1 !-- 
; 120 0433 1 
: 121 0434 2 BEGIN 
3 \¢¢ 0435 
: i 043 MAP 
3 } 3 ek 14 FIB : REF BBLOCK; ' FIB of request 
; 136 439 § Loca 
s 127 0440 BITS_NEEDED, ' number of map bits to allocate 
: 128 0441 START_BLOCK, ! starting storage map VBN 
: 193 044 START BIT, ! bit address in storage map 
: 130 044 BIT_COUNT, ' number of bits to scan 
: 131 0444 FIRST_SET, ' start of free area 
: 133 0445 BITS. SCANNED, ' number of bits processed by scanner 
c. os 044 END BIT ' Last bit processed 
3; «(134 44 BEST_STARTBIT, ' start of largest free area 
3 136 38 BEST_BITSFOUND; ! size of largest free area 
: 13 450 LABEL 
: 3 tt MAP_SCAN; ' code block to scan the storage map 
: 140 438 EXTERNAL 
s 161 0454 USER_STATUS : VECTOR, ' user 1/0 status biuck 
: 142 0455 CURRENT _UCB : REF BBLOCK, ! UCB of volume 


N 15 
SMALO 16-Sep-1984 01:18:07 VAX-11 Bliss-32 V4.0-742 Page 4 
yor060 127868713 4 13:38:83 DISKSVMSMASTER:CF11A.SRCISMALOC .B32; 1 . (2). 
> 143 12 CURRENT_VCB : REF BBLOCK; ! VCB of volume 
: 408 23 | 
3 | 
: 148 re ! Adjust the desired block count to a bit count through the volume 
3 126 bce} cluster factor. Set up the running parameters. 
149 46 | 
; 13 rhe: BITS_NEEDED = (.BLOCKS NEEDED + .CURRENT VCBCLVCB$W_CLUSTER] = 1) 
: 151 464 /_ .CURRENT_VCBCVCB$W_CLUSTERJ; 
3 13¢ 465 BEST_BITSFOUND = 0; 
; 193 0466 START_BLOCK = .CURRENT_VCBLVCB$B_SBMAPVBN); 
3 188 Bee ! The outer loop potentially scans the | twice: once from the given starting 
3 1% 469 : phe through to the end and then from beginning to end, if necessary to 
s 37 0470 ! locate a large contiguous area with a bad start. 
; 138 0471 : 
; 159 98h 
: 160 047 MAP_SCAN: 
: «161 0474 BEGIN 
; 166 0475 WHILE 1 DO 
: 16 0476 4 BEGIN 
: 164 0477 4& START_BIT = .START_BLOCK * 4096; 
3 192 gore ? BIT_COUNT = .CURRENT_UCBCUCBSL_MAXBLOCK] - .START_BIT; 
; 167 0480 4 ! Now scan the bitmap for the first free block. Having found it, scan 
; 168 0481 4 ! to see how many free blocks there are there. If it is a non-contiguous 
: 169 0482 4 ! allocation, accept the blocks regardless. If it is contiguous, and the 
; 170 0483 4! free area is too small, keep looking. 
3s 171 0484 4! 
; 172 0485 4 
3; «173 0486 4 WHILE 1 DO 
3 174 0487 5 BEGIN 
3; «175 0488 5 If BITSCAN (FIND_SET, .START BIT, ,BIT COUNT, FIRST_SET, BITS_SCANNED) 
: 176 oe 2 THEN EXITLOOP; T out if end of map 
s 178 0491 5 BIT_COUNT = .BIT_COUNT - .BITS SCANNED; 
: 179 0492 5 BITSCAN (FIND CLEAR, .FIRST_SET, MIN (.BIT_COUNT, .BITS_NEEDED), 
; 180 0493 3 START_BIT, BITSTSCANNED); 
; 182 0495 5 BIT_COUNT = .BIT_COUNT - .BITS_SCANNED; 
: «6183 0496 5 
: «(184 0497 5 IF .BITS_SCANNED GTRU .BEST_BITSFOUND 
: 185 0498 5 THEN 
: «186 0499 6 BEGIN 
: 187 0500 6 BEST_STARTBIT = .FIRST_SET; | 
: «4188 0501 6 BEST_BITSFOUND = .BITS_SCANNED; 
: «4189 b208 5 END; | 
3; 190 050 : 
3 «6191 0504 IF .BEST_BITSFOUND GEQU .BITS_NEEDED 
3 196 0505 g OR NOT (.FIBCFIBSV_ALCON) OR -FIBCFIBS$V_ALCONB)) 
3 («19 0506 THEN LEAVE MAP_SCAR; ! found what we were after 
: 194 0507 5 | 
3; «195 508 IF .BIT_COUNT EQL 0 
: 196 20 THEN EXTTLOOP; ! end of storage map 
; 198 511 4 END; ! end of map scan loop 
: 199 0512 4 
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We get here when we run into the end of the storage map. If the scan 
started in the middle, do it once more from the top. 


IF .START BLOCK EQL 0 THEN LEAVE MAP_SCAN; 
START_BLOCK = 0; 
END; ! end of outer loop 


END; ! end of block MAP_SCAN 


We have either found a cluster of free blocks suitable to the occasion 
or we have searched the entire map. If nothing was found, or for a 
normal contiguous he mgt return error if the number of blocks is 
insufficient; otherwise, allocate the blocks. 


IF BEST BITSFOUND EQL 0 
OR (.FIBCFIBSV_ALCON] AND NOT .FIBCFIBSV_ALCONB 
as -BEST_BITSFOUND LSSU .BITS_NEEDED) 


g tachemenns * ,CURRENT_VCBCVCBSW_CLUSTER); 


BITSCAN (CLEAR_BITS, .BEST_STARTBIT, .BEST_BITSFOUND, END_BIT, BITS_SCANNED); 
KERNEL_CALL (SET_SMVBN, .END_BIT / 4096); 


«START _LBN = .BEST_STARTBIT * .CURRENT VCBCVCB$W_CLUSTER]; 
-BLOCKS_ALLOC = .BEST_BITSFOUND * .CURRENT_VCBCVCB$W_CLUSTER]; 


KERNEL_CALL (UPDATE_FREE, - ..BLOCKS_ALLOC); 

END; ! end of routine ALLOC_BLOCKS 

TLE SMALOC 
\v04-000\ 


-EXTRN USER_STATUS, CURRENT_UCB 
-EXTRN CURRENT_VCB, SYSSCMKRNL 


-PSECT S$CODES,NOWRT,2 


Page 
1 9g 


O3FC 90000 .ENTRY ALLOC_BLOCKS, Save R2,R3.R4,R5.R6,R7,R8.R9_ ; 
59 00006 CF 9E 900¢ MOVAB CURRERT_VCB, R9 
58 9000v cf 9E 0000 MOVAB BITSCAN; R 
57 000000006 9F 9 9000¢ MOV @#SYSSCMKRNL, R7 
3E 10 C2 0001 SUBL2 #16, SP 
5 69 b 0016 MOVL CURR NT_VCB, RO 
51 3c A ¢ 001 MOVZWL 60(RO),~R1 
51 08 ac CO 0001D BLOCKS. NEEDED, R1 
51 b7 1 DECL RI 
54 3c =A ; ; MOVZWL 60(RO), BITS_NEEDED 
54 51 24 C DIVL3 BITS_NEEDED,"R1, BITS_NEEDED 
2 ba 0 a CLE BEST OBIT SE OUND 
55 38 «6 AO 9A D MOVZBL 59(RO), START_BLOCK 
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SPAL 16-Se VAX=-11 ss-32 V4.0-742 Page 7 
70st 860 14- att 7 9}: 38: 93 DISK$V nen STER:CF11A.SRCISMALOC.B32; 1 9 2) 
0000v cf OF OE4 PUSHAB SETS : 
4 4 FB £8 CALLS = TS SCMKRNL : 
0 69 p EB HOVE ever AR NT _VCB, RO + 0541 
3c A : E MOV yw 6 : 
oc ec é, 51 ¢ F MULL RBeST TARTBIT, @START_LBN : 
1 3c A f F MOV yw 6 a + 0542 
10 BC 2 ee FB MULL BEST BITSFOUND, @BLOCKS_ALLOC : 
7E 10 BC CE 001 MNEGL Baiorns _ALLOC, -(SP) + 0544 
01 DD 00104 PUSHL #1 : 
5E DD 00106 PUSHL SP ; 
0000v CF 9F 00108 PUSHAB UPDATE_FREE ; 
67 04 FB 0010C CALLS #4, SYSSCHIKRNL ; 
04 0010F RET + 0546 


3; Routine Size: 272 bytes, Routine Base: $CODE$ + 0000 
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VOLUME _SIZE =  .CURRENT_UCBCUCBSB_SECTORS] * 
UCBSB_TRACKS] * 
UCBSW_CYLINDERS]; 


IF _.START_LBN + .BLOCK_COUNT GTRU .VOLUME_SIZE 
THEN ERR_EXIT (SS$_BA 


» CURRENT_UCB 
- CURRENT _UCB 


DFILEHDR) ; 


; 5 rh } GLOBAL ROUTINE RETURN_BLOCKS (START_LBN, BLOCK_COUNT) : NOVALUE = 
; ; 23 1 144 

; 8 50 1! 

; i $3¢ } FUNCTIONAL DESCRIPTION: 

: 2 s ! This routine returns a single contiguous area to the storage map. 
; rk B2 5 1! CALLING SEQUENCE: 

: 46 8 2$ 1! RETURN_BLOCKS (ARG1, ARG2) 

; 245 tga 

i 246 0998 1 | INPUT PARAMETERS: 

; 24 55¥ 1! ARG1: starting LBN to free 

; 248 0560 1! ARG2: number of blocks to free 

; 249 0561 1! 

; 250 3206 1 ! IMPLICIT INPUTS: 

$ go) 0565 1! CURRENT_VCB: VCB of volume 

H 26 0564 1! CURRENT_UCB: UCB of device 

: 0565 1! 

; 254 0566 1 ! OUTPUT PARAMETERS: 

; 255 0567 1! NONE 

; 256 0568 1! 

; 57 0569 1 ! IMPLICIT OUTPUTS: 

; 258 0570 1! NONE 

; 259 0571 1! 

5 $60 b27¢ 1 ! ROUTINE VALUE: 

; 261 0573 1! NONE 

3 506 0574 1! 

; £8 0575 1 ! SIDE EFFECTS: 

; 264 0576 1! storage map and VCB modified 

; ge 0577 1! 

; 266 0578 1 !-- 

3 344 0579 1 

; 268 0580 2 BEGIN 

3; 269 0581 2 

: 270 $304 2 LOCAL 

s ery 0583 2 VOLUME SIZE, ! size in Logical blocks of volume 
: 272 0584 2 START BIT, ! starting bit number in storage map 
; 273 0585 2 BIT COUNT, ! number of bits to set 

: 274 0586 2 DUMAY1, ! dummies to receive return data 
3 ars 0587 DUMMY 2; ! from BITSCAN, which is not used 
: sis 0588 

2. aur 0589 EXTERNAL 

: 278 0590 CURRENT_VCB : REF BBLOCK, ! VCB of volume in process 
; ery 0591 CURRENT_UCB : REF BBLOCK; ! UCB of device unit 

; 280 0338 2 

3 $e! 059 § : 

; 38 O2oe : First check the blocks being returned against the volume size. 

; 0 

3 0 39 

, ¢ 98 

3 99 

: 00 

3 0601 

; 0 o 

; 060 


LSSELERE 
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SMAL 16-Sep-1984 01:18:07 VAX-11 Bliss-32 V4.0-742 Page 9 
904-050 12-Sep-19 4 93:38:95 DISKSVMSMASTER:CF11A.SRCJSMALOC.832;1 ’ (3) 
s 38 604 ' Divide down by the volume cluster reqter to convert blocks to storage 
; 605 ! map bits. if here are non-zero remainders, reject the operation on grounds 
> 294 60 ! of a bad file header. 
; 295 60 ! 
3 38 s'4 
; 9 609 IF_.START LBN MOD .CURRENT VCBCVCBSW_CLUSTER] NEQ 0 
; 298 0610 THEN ERR_EXIT (SS$_BADFILEADR) ; 
: 999 9611 START_BIT = .START_LBN / .CURRENT_VCBLVCBSW_CLUSTERI; 
: Of $18 IF_ .BLOCK COUNT MOD .CURRENT VCBCVCBSW_CLUSTER] NEQ 0 
3 8 0614 THEN ERR_EXIT (SS$_BADFILEHDR) ; 
H $7 Ret? BIT_COUNT = .BLOCK-COUNT / . CURRENT_VCBLVCB$W_CLUSTER); 
: 305 061? !' Call the bit scanner to set the appropriate 
; 306 0618 ! bits. Finally update the volume free block count. 
: 308 0620 5 
3 +4 0631 BITSCAN (SET_BITS, .START_BIT, .BIT_COUNT, DUMMY1, DUMMY2); 
; 1 0638 é KERNEL_CALL (UPDATE_FREE, .BLOCK_COUNT); 
3 513 0625 1 END; ! end of routine RETURN_BLOCKS 
001C 00000 -ENTRY RETURN_BLOCKS, Save R2,R3,R4 : 0547 
54 0000G CF 4 00002 MOVAB CURRENT_VCB, R4 3 
5E 08 C2 00007 SUBL2 48, 3 
50 0000G CF DO OQO0O0A MOVL CURRENT_UCB, RO ; 0597 
51 44 AO 9A OOOOF MOVZBL 68(RO), R1 ; 0598 
52 45 AO 9A 00013 MOVZBL 69(RO), R2 3 
51 52 ge 00017 MUL SF . 
53 46 AO 3C QOOIA MOVZWL 70(RO), R3 ; 0599 
51 53 C4 OOOIE MULL R3, VOLUME SIZE 3 
50 04 AC 08 aC C1 00021 ADDL BLOCK_COUNT, START_LBN, RO ; 0601 
51 50 D1 00027 CMPL RO, VOLUME_SIZE : 
35 1A 0002A BGTRU 1$ 3 
50 64 D0 0002C OVL CURRENT_VCB, RO ; 0609 
50 cs OO Boo gs MOVZWL $0(RO), RO : 
7E 00 04 AC 01 7A 00033 EMUL #1, START_LBN, #0, -(SP) : 
50 50 8E 50 7B 00039 EDIV RO, (SP)+, RO, R ; 
50 3 iF TSTL RO : 
1F 12 0004 BNEQ 1$ i 
50 64 e° 4k MOVL CURRENT_VCB : 0611 
51 3c =A ¢ 0004 MOVZWL 60(RO),~START_BIT ; 
51 04 AC 51 0049 DIVL3  START_BIT, START_LBN, START_BIT ; 
50 3c =A: 3C (0004 MOVZWL 60(ROT, RO ; 0613 
7E 00 08 Ac 01 A 0005 EMUL #1, BLOCK_COUNT, #0, -(SP) ; | 
50 50 BE 0 7B 0005 EDIV RO, (SP)+, RO, RO ; 
50 D5 00050 TSTL RO ; 
05 13 0005F BEQL 2s 3 
0810 8F BF 0061 1$: CHMU #2064 : 0614 
4 Bae? RET : 
23 64 BO $08 23: MOVL C eeRNT Vee. RO ; 0615 
0 3¢ 6 AO 3C:«00069 MOVZWL 60/0), BIT_COUNT : 
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AC 50 C7 6p DIVL3 eT _COUNT, BLOCK_COUNT, BIT_COUNT ; 
—E DD 0 PUSHL + 0621 

08 Ar F 00074 PUSHAB SUNY Y1 : 

50 DD 9077 PUSHL BIT COUNT : 

i A ane RUE yar : 

O000v CF $8 FB 20070 CALLS BITSCAN : 
08 AC DD 000 : PUSHL ac bck. COUNT + 0623 

oS: ae : 

0000v CF 9F 00089 PUSHAB UPDATE FREE : 

000000006 9F 04 FB OO8D CALLS , a&SYS$CMKRNL ; 
04 00094 RET > 0625 

; Routine Size: 149 bytes, Routine Base: S$CODE$ + 0110 


04-000 

>; 315 6 

3 1§ 6 5 
s Si 6 8 
; 318 6 

; 319 6 , 
3 3 6 

3 ¢ 6 5 
3 & be 5 
3 5 06 $ 
: 358 $636 
3; 328 0639 
Fs $ 0640 
; 0 0641 
; 31 064 
3 $36 064 
. 3s 0644 
; 334 0645 
3 335 0646 
3 $39 0647 
: 37 0548 
; 338 0649 
3 359 0650 
; 340 0651 
: 341 Bees 
3 ok 065 
s 0654 
: re 0655 
s 345 0656 
; 346 0657 
; 347 0658 
; 348 0659 
3 $08 0660 
3 50 0661 
: «351 066 
; 26 066 
; 5 0664 
3; 354 0655 
3; 355 0666 
; 356 0667 
3 3 R058 
; 359 4 
; 360 71 
: 361 72 
3 o¢ 675 
3 0674 
3 : 2 
g 66 ers 
; 3% 28 
; 368 67 
: 9 0 
$ 0 681 
: 1 0682 
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16-Sep-1984 01:18:07 VAX-11 Bliss=-3 
12-808-1 3b 95:38:95 DISKSVMSMASTER 
OBAL ROUTINE BITSCAN (MODE, STARTBIT, BITCOUNT, STOPBIT, LENGTHFOUND) = 


+ 
FUNCTIONAL DESCRIPTION: 


This routine is the basic bitmap scanner. It scans the bitmap 
over the specified number of bits, performing the operation 
specified by the mode. 


CALLING SEQUENCE: 
BITSCAN (ARG1, ARG2, ARG3, ARG4, ARGS) 


INPUT PARAMETERS: 

ARG1: mode of operation - see module preface 
wot I starting bit address in bitmap 

ARGS: maximum number of bits to process 


IMPLICIT INPUTS: 
CURRENT_VCB: address of VCB in process 


OUTPUT PARAMETERS: 
ARGS: address of longword to receive ending bit address 
ARGS: address of longword to receive number of bits scanned 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
1 if maximum bit count processed 
0 if not 

SIDE EFFECTS: 
bitmap blocks may be altered, read, and written 


BEGIN 

LOCAL ; 
COUNT, ' number of bits to go 
BLOCK, ' current bitmap block number 
CBYTE, ' current pyte offset in block 
CcBIT, ' current bit number within byte 
BYTELIM, ! number of bytes to scan 
BITLIM, ' number of bits to scan 
BUFFER ' address of bitmap buffer 
ENDBYTE, ! end of current byte scan 
ENDBIT; ! end of current bit scan 

EXTERNAL 
BI TMAP_VBN ! VBN of current storage oop block 
BI TMAP~BUFFER REF BITVECTOR, ! address of current map block 
CURRENT_VCB REF BBLOCK; ! VCB in process 

EXTERNAL ROUTINE 2 
MARK_DIRTY, ! mark buffer for writeback 


Pag 
JSMALOC .B32;1 
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1 
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; 86 ; READ_BLOCK; ! read a disk block 

: 685 

3 8s $ ! sett tat tee by setting the count and setting up the pointers to 

3 6 ' the starti ng position. Read the first map Block. The case of a 

: 08 3 zero count is handled specially to avoid bitmap edge problems. 

: 690 2 

3 691 COUNT = .BITCOUNT; 

3 O36 IF .COUNT EQL 0 

3 g 069 THEN 

3 694 BEGIN 

3 695 «LENGTHFOUND = 0; 

; 385 0696 -STOPBIT = .STARTBIT; 

3 069 RETURN 1; 

en 

: 0700 2 BLOCK = .STARTBIT<12,20>; 

3 0701 IF .BLOCK GEQU “CURRENT. VCBCVCBSB_ SBMAPSIZE] 

3 aa 14 THEN BUG_ CHECK (BADSBMBLK, FATAL, ‘ACP tried to reference off end of bitmap"); 
: 335 9704 If .BLOCK*1 EQL .BITMAP_VBN 

: 395 0706 BUFFER = .BITMAP_BUFFER 

- 3 ts : BEGIN 

: 98 0709 Shoes e READ_BLOCK (.BLOCK+.CURRENT_VCBCVCBSL_SBMAPLBN], 1, BITMAP_TYPE); 
; 399 0710 BITMAP _VBN = -BLOCK+ 1; 

: 400 0711 BITMAP_BUFFER = .BUFFER; 

BORNE tO Eee 

: 40 0714 g cB CBYTE = .BUFFER + .STARTBIT<3,9>; 

H tRe ofe CBIT = .STARTBIT<0,3>; 

: 406 0717 : ! The outer loop allows us to use the same set of bit processing instructions 
; 407 0718 i for the odd bits at both the start and end of the scan. 

: 209 ee 

: 410 0721 WHILE | 1 120 

ee 

: 418 OoS¢ : j, Presess bits from the starting position up to the first byte boundary. 
: 415 ? 

: 616 oF $ BITLIM = MIN (8 - scair COUNT); !' max number of bits to scan 
: a1? , é CASE zMODE FROM 0 TO 3 OF 

; rth OF , FIND_SET): FFS (CBIT, BITLIM, .CBYTE, ENDBIT); 

; i 07 § CFIND_CLEAR]: FFC (CBIT, BITLIM, .CBYTE, ENDBIT); 

: 4 g oF 4 & CSET_BITS]: (IF NOT FFS (CBIT, BITLIM, .CBYTE, ENDBIT) 

: 4h 735 ; THEN ERR_EXIT (SS$_BADFILEHDR) 

: 4 6 OF $ BEGIN 

s 6 7 8 (,CBYTE)<.CBIT, .BITLIM> = -1; 

; 428 07 MARK_DIRTY (.BUFFER); 


seo 
~™Nm 
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3 
) 


RB Bey ay 

3 $3) 742 4 CCLEAR_BITS]: (IF NOT FFC (CBIT, BITLIM, .CBYTE, ENDBIT) 

; 4 : 743 5 THEN ERR_EXIT (SS$_DEVICEFULL) 

; 4 744 4 ELSE 

: 4 ok BEGIN 

> 435 reg (.CBYTE)<.CBIT, .BITLIM> = 0; 

: 456 074 MARK_DIRTY (.BUFFER); 

3; 437 Bes END); 

; 438 749 

3; 439 0750 TES; 

: 440 fe) 

3 441 7 ¢ ! Update the counters and pointers. 

: 44 75 : 

; 44 0754 

; tee Bree COUNT = .COUNT = (.ENDBIT = .CBIT); 

> 446 0757 ! If we are now positioned on a byte ~ yy | we can process the bitmap 

3 ret 8728 on a byte by byte basis. Page through the itmap until the count runs out. 
; 449 0760 

: rt ore! IF .COUNT EQL 0 OR .ENDBIT NEQ 8 THEN EXITLOOP; 

3 $28 o763 CBYTE = .CBYTE + 1; 

; 45 0764 CBIT = 0; 

; 454 0765 

: 455 0766 WHILE 1 DO 

> 456 0767 4 N 

; 457 0768 4 BYTELIM = MIN (.COUNT/8, 512 - (.CBYTE-.BUFFER)); 

; 458 0769 4 

3; 459 0770 4 CASE .MODE FROM 0 TO 3 OF 

; 460 0771 4 SET 

; 461 Bite 4 

; ro 14 ? CFIND_SET): ENDBYTE = CHSFIND_NOT_CH (.BYTELIM, .CBYTE, 0); 
: rie: 146) 2 CFIND_CLEARJ: ENDBYTE = CHSFIND_NOT_CH (.BYTELIM, .CBYTE, 255); 
: rr] {4a 4 3 CSET_BITS): CIF NOT et i (ENDBYTE = CHSFIND_NOT_CH (.BYTELIM, 
: 468 0779 6 THEN ERR_EXIT (SS$_BADFILEHDR) 

: 469 0780 ELSE 

: 470 0781 6 BEGIN 

3: 471 4-14 6 CHSFILL (255, .BYTELIM, .CBYTE); 

3; 47 878 6 MARK_DIRTY (BUFFER); 

3 67 784 4 END); 

3 «474 0785 4 

3; 475 9786 2 CCLEAR_BITS): (IF NOT CHSFAIL SENOBYTE = CHSFIND_NOT_CH (.BYTELIM, 
3: 47 078 -CBYTE, 255)) 

: 47 788 : THEN ERR_EXIT (SS$_DEVICEFULL) 

: 478 789 ELSE 

3; 479 790 6 BEGIN 

: 480 791 6 CHSFILL (0, .BYTELIM, .CBYTE); 

; 461 792 6 MARK_DIRTY (.BUFFER); 

: re; 793 4 END); 

, 6 794 4 

; 484 ? 
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IF CHSFAIL (.ENDBYTE) THEN ENDBYTE = .CBYTE + 


pofofoto) +S +) +) 


ge-—S z="—- "SO 


09 00 CS Cd 09 00 09 C9 59 09 0D 09 CD CD C9 C9 CD C9 0D 08 SII“ 
MmMowwaw ——O —&—oO 


poe ele epee fo lel ofelolelolololelolololelololo) 


ee = EQL 0 THEN EXITLOOP; 
YTE; 
: Scan is completed. Return the output values. 


UNT = .COUNT; 
+ ..LENGTHFOUND; 


. STOPB 
RETURN C0 te 


oO 


WAAAY PIPOPOPINININNYDN 2 2 OO SO SS S| OOO 


OoOoooooooooco 
G0 00 Cd C9 09 C9 09 CO Gd Cd G9 C0 CO 


~—MoOmMmovIT7o—-9o 
“POO "FSOOfLNOS 


nn 
mn 


! If the count runs out or we run into an end condition leave the loop. 
! Otherwise read the next block, wrapping around the end of the bitmap 
when necessary, and loop. 
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4! 
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ie 
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E) 
R NEG 512° OR “COUNT Sia 0 THEN EXITLOOP; 


“CURRENT VCBLVCB$B_SBMAPSIZE] 
(BADSBMBCK, FATAL, ‘ACP tried to reference off end of bitmap"); 


! end of block scan loop 


! We have either found the desired end condition or the count will run 
out within the next byte. Process the final byte bit by bit. 


! end of major loop 


! end of routine 
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bigs VBN, READ B mere 
BUGS ~BADSBMBLK 
Re Save R2,R3,R4,R5,R6,R7,R8,R9,R10,- 


SI TCOuNT, COUNT 
nrBit, UNS TOPBIT 
#1, RO 


#20, STARTBIT+1, 
wry esate BLOCK 
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: <BUGS -BADSBMBLK!4> 
2$: MOVAB  -1(RB) 
C 2, BITMAP. VBN 
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0000G CF g 
08 AE . ? TMAP_BUFFER, BUFFER 
3$: PUSHL . 
t 
a 
00006 
08 
00006 


RRE 
2(R 
00006 na: 
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; : 
9 I 
F t 
41 
re} 
GA re 
A CALLS 

: SITM 
5 AP VEN BUFFER 
65 4$: EXTZV e ry at oll CBYTE 
$f , STARTBIT, CBIT 
RO 

76 CMPL RO, COUNT 

79 $ 

7B 

7E 

81 


0728 
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DBIT, #8 


vi“ 
o-— 


NT, R1 
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CASEL MODE, #0, #3 : 0770 
<WORD  21$-20$,- : 
§3- $,- : 
$-20$,- 3 
SA 35 00100 218: spc. #0” SYTELIM. (cBYTED : 0773 
g 3 she BEQL a3 : 
9 11 0010F BRB 4$ ; 
SA FF OE 38 0111 22$: SKPC #255, BYTELIM, (CBYTE) + 0775 
; 1 90116 BNEQ  24$ : 
D4 00118 23$: CLRL AI : 
58 31 D0 O11 4$: MOVL 1, ENDBYTE : 
C 11 00110 BRB 34§ : 
SA 00 38 Oui 25$: SKPC #0, BYTELIM, (CBYTE) : 0777: 
02 12 00123 BNEQ 26$ : 
1 D4 00125 CLRL sR : 
58 51 b9 00127 26$ MOVL R1, ENDBYTE : 
05 13 O012A BEQL 28$ : 0778 
0810 BF &F 0012C 278: CHMU #2064 : 0779 
04 001350 RET : 
6E 00 2c 00131 28$:  MOVCS #0, (SP), #255, BYTELIM, (CBYTE) + 0782 
19 11 ote BRB 33$ : 0783 
SA FF 8F 38 0013A 29%:  SKPC #255, BYTELIM, (CBYTE) + 0786. 
02 12 0013F BNEQ  30$ : 
51 D4 00141 CLRL ss R21 : 
58 51 09 00143 30$: MOVL 1, ENDBYTE : 
05 13 00146 BEQL : 0787 
0850 8F BF 00148 31$: CHU #2128 : 0788 | 
6E 00 2c 00140 32$:  MOVCS #0, (SP), #0, BYTELIM, (CBYTE) : 0791. 
08 AE ODD $O788 33$: | PUSHL BUFFER : 0792 
CF 01 FB 00156 CALLS #1, MARK_DIRTY ; | 
5B D5 0015B 34$ TSTL ENDBYTE : 0797 
04 12 0015p BNEQ 5$ ; 
56 SA C1 0015F ADDL3 BYTELIM, CBYTE, ENDBYTE ; | 
56 5B C3 00163 35$ SUBL3. ENDBYTE “ > 0804 
59 6940 7E 00167 MOVAQ (C UNT) ERO), COUNT F 
08 AE 00000200 8F Ci 00168 ADDL3 #512, BUFFER, > 0805 
50 5B D1 00174 CMPL ENDBYTE, RO ; 
40 if 00177 BNEG 7$ F 
59 05 00179 TSTL COUNT : 
3 13 00178 BEQL 7$ ; 
Dé 0017D INCL BLOCK + 0807 
50 00006 CF DO 0017 MOVL  CURRENT_VCB, RO : 0808 
08 00 FD 184 CMP27vV #0, #8,~57(RO), BLOCK F 
04 1A 0 18A BGTRU 36$ : 
FEE 18C BUGW > 0809 
0000* O18 «WORD  <BUG$_BADSBMBLK! 4> ; 
Q1 DD 00190 36$:  PUSHL #1 > 0811 
1 0D O19¢ PUSHL #1 ; 
50 00906 CF 00 0019 MOVL  CURRENT_VCB, RO ; 
4 B048 9F 00199 PUSHAB 832(RO) (BLOCK : 
0G CF : FB 019D CALLS #3, READ BLOCK : 
8 AE D O1A2 MOVL RO, BUFFER : 
0G CF 01 A8& 9E OO1A MOVAB 1(R8), BITMAP_VBN : 0812 
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Routine Base: S$CODE$ + 01A5 


473 bytes, 


; Routine Size: 
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; Routine Size: 13 bytes, Routine Base: S$CODE$ + 037E 
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/v04 14-Sep-19 4 93; 3:95 DISKSVMSMASTER:CF11A.SRCJSMALOC.B32;1 . (5) | 
i 3 0835 1 ROUTINE SET_SMVBN (VBN) : NOVALUE = | ; 
: §35 Sj te | 
; ; ] | FUNCTIONAL DESCRIPTION: | : 
: 9 ( 5 ii This routine updates the current storage map VBN in the VCB. | : 
; ? ary : It must be called in kernel mode. : 
; : OB4e i CALLING SEQUENCE: | ; 
; 0845 } ; SET_SMVBN (ARG1) : 
: 535 O83 1 | INPUT PARAMETERS: | ; 
; a78 : ARG1: new storage map VBN : 
; 538 Oeeg IMPLICIT INPUTS: : 
3 9 teh 1! NONE : 
: 540 0850 1! ; 
; 541 0851 1 | OUTPUT PARAMETERS: ; 
; 54 Ob>¢ 1! NONE 3 
; 54 0855 1! 3 
; 5464 0854 1 ! IMPLICIT OUTPUTS: ; 
3 a2 st ! CURRENT_VCB: address of volume VCB : 
: 30h 0857 1 | ROUTINE VALUE: | ; 
; 548 858 1! NONE $ 
; 549 0859 1! 3 
; et bBet i i — pita ken map VBN altered | 
: $52 0862 1 ten: 
3; 33 0865 1 '-- : 
; 226 0864 1 ; 
; 22 0865 BEGIN | : 
: 386 O86? 5 EXTERNAL | : 
; 558 0868 CURRENT_VCB : REF BBLOCK; ! VCB of volume : 
; 44 0869 3 
; 560 0870 : 
3 20) 4a CURRENT_VCBCVCB$B_SBMAPVBN) = .VBN; : 
; 388 08735 1 END; ! end of routine SET_SMVBN ; 
0000 00000 SET_SMVBN: | 3 
-WORD Save nothing ; 0833 ; 
50 0000G CF 00 0000 MOVL CURRENT_VCB, RO : 0871 3 
3B 8 =6A0 04 AC 90 0000 MOVB VBN, S9TRO) ; 3 
04 0000¢ RET ; 0873 : 
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(3 $65 a ROUTINE UPDATE_FREE (COUNT) : NOVALUE = 
i e9 2 1 144 : 
3 68 7 13 | 
; +4 a : FUNCTIONAL DESCRIPTION: 
3 71 » 2s This routine updates the free block count in the volume's VCB. 
: f : 1 ! It must be called in kernel mode. 
; 74 SB 1 !' CALLING SEQUENCE: 
i 38 dees 1} UPDATE_FREE (ARG1) 
3 7 8 $ 1 ! INPUT PARAMETERS: 
3 278 er H ! ARG1: value (positive or negative) to alter free count 
: 580 0889 1 ! IMPLICIT INPUTS: 
; 581 0890 1! NONE 
3 eee 0891 1! 
; 58 +344 1 ! QUTPUT PARAMETERS: 
: 584 089 1! NONE 
: 585 0894 1: 
: 586 0895 1 ! IMPLICIT OUTPUTS: 
; 587 0896 1! CURRENT_VCB: VCB of volume 
; 588 0897 1 | 
; 589 0898 1 ! ROUTINE VALUE: 
; 590 0899 1! NONE 
; $91 0900 1! 
4 236 0901 1 ! SIDE EFFECTS: 
; 59 3208 1! free count altered 
3; $94 0903 1! 
s 5395 0904 1 !<- 
: 596 0905 1 
; $97 0906 BEGIN 
; 598 907 
; 599 908 2 EXTERNAL | 
; 600 0909 CURRENT_VCB : REF BBLOCK; ! VCB of volume 
: $03 $91 
; $08 aig CURRENT _VCBCVCBSL_FREE] = .CURRENT_VCBCVCBSL_FREE] + .COUNT; 
; 604 091 IF .CURRENT_VCBLVCUBSL_FREEJ LSS 0 
3 red pale THEN CURRENT_VCBCVCBSC_FRE J} = 0; 
; 607 0916 1 END; ! end of routine UPDATE_FREE 
| 0000 00000 UPDATE_FREE: : | 
-WORD Save nothing : 0874 
50 0000G CF DO 0000 MOVL CURRENT_VCB, RO ; 0912 
40 AO 04 AC £0 0 ADDL2 COUNT, 84(RO) : 
eS aa ee ae Bu 
04 rf 1$: RET ; 0916 


; Routine Size: 18 bytes, Routine Base: $CODE$ + 0388 


SMALO 
/¥04=000 
608 917 
609 918 1 END 
610 0919 0 ELUDOM 
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-$255$DUA28: CSYSLIBILIB.L32;1 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:SMALOC/OBJ=OBJ$:SMALOC MSRC$:SMALOC/UPDATE=(ENH$: SMALOC) 
925 code + 0 data bytes 


Size: 
Run Time 


phen Tine: 00:39.2 
Lines/CPU Min: 15598 
Lexemes/CPU-Min: 

Used: 175 pages 


pet Bg panty Complete 


PSECT SUMMARY 
Bytes 


925 NOVEC,NOWRT, RD, 
Library Statistics 

enemas Symbols 

Total Loaded 

18619 14 
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Attributes 
EXE,NOSHR, 


Percent 
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p-1984 
p-19 


Be 12:29:52 


LCL, REL, 


Pages 
Mapped 


1000 


CON, NOPIC ,ALIGN(2) 


Processing 
Time 
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